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KK CLUB NOTES >>> 


Houston Area Apple Users Group 
APPLE BARREL 
4331 Nenana Drive 
Houston, TX 77035 


The HOUSTON AREA APPLE USERS GROUP is 
an Apple II user club, not affiliated 
with Apple, Inc., or with any retail 
computer store. HAAUG is a member of 
the International Apple Core and 
Supports its purposes and 
publications. General membership 
meetings are held on the second 
Thursday of each month in the rear 
chapel of Memorial Lutheran Church, 
5800 Westheimer, right by the Jungman 
Branch Library and west of Chimney 
Rock. They start at 6:30 p.m. An 
additional meeting for access to the 
club software library, 
problem-solving, and various lectures 
is held the last Saturday of each 
month at the University of Texas 
School of Public Health (in the 
Medical Center), 6905 Bertner off 
Holcomb, across from M.D. Anderson 
Hospital. We meet on the main floor, 
first room on the left. Parking is 
adjacent to the building. These 
Saturday meetings begin at 2:00 p.m. 


OFFICERS / EXECUTIVE BOARD 


President Bruce Barber 469-5805 
Vice President (vacant) 

Treasurer Ray Essig 497-7165 
Secretary James Odom 426-3970 


Software Lib. Dennis Cornwell1774-0671 
Hardcopy Lib. Larry Baumann 498-3433 
Hardware Chair (vacant) 


Business Uses Rudge Allen 622-3979 
Member ship Lee Gilbreth 342-2685 
Newsletter Ed. Ed Seeger 723-6919 
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MEMBERSHIP INFORMATION 


Dues are $18.00 per 12-month period 
for regular memberships, $6.00 for 
students through high school and where 
no adult member of the family is an 
Apple user. Please make checks 
Payable to "Houston Area Apple Users 
Group," and mail to Lee E. Gilbreth, 
Membership Chair, 3609 Glenmeadow, 
Rosenberg, TX 77471. This includes a 
subscription to APPLE BARREL, which is 
published nine times a year. 
Newsletter exchanges with similar 
clubs are invited. 


APPLE BARREL REPRINT POLICY 


Unless otherwise indicated within the 
Program or article, any ORIGINAL 
material published herein may be 
reprinted without permission by any 
non-profit*Apple club, group or 
newsletter, PROVIDED proper credit is 
given to the APPLE BARREL and the 
article or program author. 


---sete=--- 


SPECIAL INTEREST GROUPS 


Members who share a common interest 
are encouraged to form Special 
Interest Groups to more fully explore 
their fields. Meetings may be 
arranged by common consent of the 
group and will ordinarily have one 
member who serves to coordinate or 
convene the meetings. If you would 
like to start a group around any given 
interest, please contact one of the 
club officers. If you would like to 
be in touch with others who share one 
of the following interests with you, 
please phone the coordinator. 


APPLE BAREEL vol 3,no 8 


Curcent groups are: 


1) BUSINESS APPLICATIONS 
Coordinated by Rudge Allen, 
622-3979 


2) PASCAL USERS 
Directory being assembled 
Pat McGee coordinating, 
663-6806 


This Special Interest Group is 
to meet and discuss aspects of 
Apple's Pascal language and to 
exchange programs. 
3) MODEM USERS 
Directory being assembled 
Herb Crosby coordinating, - 
497-1061 
Ht 
4) HAM RADIO OPERATORS 
Coordinated by Ed Seeger, WB5SPTW 
723-6919 
5) NEW MEMBERS 
Coordinated by Lee Gilbreth, 
342-2685 
6) EDUCATIONAL APPLICATIONS 
Coordinated by Darrell Kachilla, 
498-0186 
7) BEGINNERS' PROGRAMMING 
Coordinated by John C. Whiteman, 
974-7287 (home) 
This Special Interest Group is 


to meet and discuss Integer Basic 


and Applesoft. 
8) FILE CABINET 
Coordinated by Lee Gilbreth, 
342-2685 
Purpose is to understand, expand 
and enhance the File Cabinet 
Pprogran. 
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APPLE BULLETIN BOARD SYSTEM 


The Houston Area Apple Users Group 
supports an ABBS evenings and 
weekends, 6:00 pm through 8:30 am, and 
all weekend long. Feel free to 
sign-on and place your want-ad, 
meeting notice, request for help, 
Aggie joke, etc. Any ASCII terminal, 
Apple computer or not, with suitable 
modem or coupler, will give you ABBS 
capability. Note that our ABBS now 
has download capability! Call: 


713/654-0759 
SYSOP is Rudge Allen, 622-3979. 


—<——— 


NEW SATURDAY MEETING PLACE 


The informal meeting held on the last 
Saturday of each month has a new home. 
Beginning in December (Saturday the 27th.), 
we will meet at the University of Texas 
School of Public Health, 6905 Bertner off 
Holeamb. Look for us on the Main Floor, 
first room on the left, or follow the sweet 
sound of ctrl-C! This means we will no 
longer meet in the radio clubhouse. Thanks 
to the HAAUG Executive Board and to member 
Carl Hacker for arranging for these nice 
facilities, By the way, parking at the school 
is free and is right adjacent to the building. 


Moeth 


M.D. Appeesw 
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Poser tac 
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CANDIDATES 


Elections for Houston Area Apple Users Group officers for 1981 will 
be held Thursday evening, December 11, during the regular club meeting. 
The nominating committee met and then submitted its report at the 


November meeting. Nominations from the floor were then received, 
Candidates are as follow: 


President: Bruce Barber, Lee Weitzenkorn 

Vice President: Mike Kramer, Rich Ftennison, Bill Zahrt, Charlie Yust 
Treasurer: Ray Essig, Dick Gleason, Brian Whaley 

Secretary: Sam Block, Paul Maddock 


All HAAUG members are urged to be present and to take part in the 
selection. 


5 APPLE 
APPLE CONG = SUBSCRIPTIONS 
fa" 


[SSS 


P.O. BOX 2227 SEATTLE, WASHINGTON 98111, USA 


The International Apple Core will make individual subscriptions to "The Apple Orchard" available com- 
mencing with Volume |, Number 2 to be published in September, 1980. 


NAME 


STREET 


CITY STATE 


zip 


COUNTRY 

Annual Subscription Rate: $10.00 per year 
First Class Postage: $5.00 per year additional (required for Canada, Mexico, APO, and FPO addresses) 
Overseas and other foreign air mail postage (required): $10.00 per year additional 

TOTAL REMITTANCE ENCLOSED: $(USA) 


Make check or money order payable to "International Apple Core’ and return with this form to: 
Apple Orchard Subscriptions 
P.O. Box 2227 
7/7/80 Seattle, Washington, USA 98111 
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NAME SWAP SUBROUTINE 
BY 
MIKE KRAMER 


When using FILE CABINET I frequently enter a person's name as the 
first item in each record. Since reports look better with names 
printed first name first, the name swap subroutine in the listing 
below was developed. 


The subroutine is actually fairly simple, involving a FOR...NEXT 
loop with a range equal to the number of characters in the 
entered name (NMS). The MID$ function in Line 10040 is used to 
search for a space (SP$). If no space is found, no action is 
taken except a RETURN. If a space is found, Line 10070 exchanges 
the first and last names, inserting a space between them, and 
returns to the main program, 


1 


LIST 0,10080 

100 HOME : INPUT "ENTER NAME ";NM$ 

110 SP$ = CHR$ (32): REM SPACE 

120 GOSUB 10030 

130 PRINT NMS 

140 END 

10000 REM 

10010 REM NAME SWAP SUBROUTINE 

10020 REM 

10030 FOR X = 1 TO LEN (NM$) 

10040 IF MID$ (NM$,X,1) = SP$ GOTO 10070: REM LOOK FOR SPACE 
BETWEEN NAMES 

10050 NEXT X 

10060 RETURN 

10070 NM$ = RIGHTS (NM$, LEN (NM$) - X) + SP$ + LEFTS (NM$,X - 
1):REM FLIP-FLOP FIRST AND LAST NAMES 

10080 RETURN 


}RUN 
ENTER NAME: MIKE KRAMER 


KRAMER MIKE 
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PRINTER ACTIVATE/DEACTIVATE 
SUBROUTINES 


BY 
MIKE KRAMER 


One of the most frustrating problems I've encountered with my 
Apple was trying to figure out how to tab past column 40 using 
the SSM AIO Interface Card RS232 port without evaporating my 
program. Some time back good old Dr.Apple helped by pointing out 
that I had to disable the screen before doing the tabs. 
Unfortunately, old Doc failed to tell how to do this. After a 
call to SSM's technician, I came up with the following 
subroutines to activate and deactivate the printer. Assuming the 
card is in slot #1, The POKE 1401,128 in Line 10120 disables the 
screen, but only if a character has been printed following the 
PR#1 command. In this example, a TOP OF FORM character has been 
output. The POKE 33,33 in Line 10130 is needed to permit printing 
past column 40. The deactivate subroutine puts memory locations 
back to their normal values and switches output back to the 


screen. 

10094 REM \ 
10095 REM ACTIVATE PRINTER 

10096 REM 


10100 D$ = CHR$(4):REM CTRL D 

10110 PRINT D$;"PR#1" 

10120 PRINT CHR(10):REM LINE FEED 
10130 POKE 1401,128:REM DISABLE SCREEN 
10140 POKE 33,33:REM SET TEXT WINDOW 
10150 RETURN 


10154 REM 
10155 REM DEACTIVATE PRINTER 
10156 REM 


10160 POKE 33,33 
10170 POKE 1401,0 
10180 PRINT D$;"PR#0" 
10190 RETURN 
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P.O. Box 94, Hauppauge, N.Y., 11787 (516) 360-0988 


expand your 48K Apple to 
64K of programmable memory 


works with Integer BASIC, 
Applesoft, Pascal, FORTRAN, 
LISA ver 2.0 


compatible with Microsoft’s 
2-80 Softcard 


eliminates the need for an 
Applesoft or Integer 
BASIC ROM card ( 
switch selection of RAM 
or mother board ROM 
language 


includes instruction 
manual. 


Plus $3 
Shipping & 
Handling 
Allow 

4 Weeks 


Dealer Inquiries 
Invited 


COMPUTER |} sone nanssoneson 
Arse DATA Revie ame ne 


SERVICES 
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Computer Registers Its First Offer, 
Of 4.5 Million Shares at $14 to $17 Apiece 
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By MARILYN CHASE 
Staff Reporter of THE WALL STREET JOURNAL, 


CUPERTINO. Calif.—Not since Eve has 
an apple poséd such temptation. But this 
time t's Apple Computer Inc., which filed 


its ine: -awaited registration with the Securi- 


Exchange Commission for an initial 
public offering of 4.5 million common 
shares. The tentative offering price will be 


between $14 and $17 a share. 


The hot mamtfacturer of personal coms: also sells personal computers. Apple 
puter systems for the home, business and | = raced 
educational’ markets, said the offering: is 

a | 
nounced its intent. to go public last August, 
and investor appetite for the new issue has |' 


planned for early December. 


been keen ever since. 


The company will sell four million 
shares, and certain holders will sell 500,000 


The registration statement fled yester- | Its newest weapon aguindt dich competi 
day charts the company’s rapid rise since pe eae cunpent Mas met with 
poring Sc prea oop, gh | mn del ied ret.retatl: deliveries + 
ae ar computers, right | arent expected wn ¥ month, Apple 


in calendar 1980, and $300 million in 1981. 
However, the company will neither confirm 


strued as promotional,” by the SEC, ex- 
plained Frederick Hoar, vice president, cor- 
porate communications. 

The company has 48.4 million shares out- 
standing, of 160 million authorized. 
al giant ge of he oo puta 

It: 

ter new. Cpe of ot ie gear on eee 
ing expenses for marketing, expansion aa 
promotion. 


Published estimates of the company’s 
call for revenue of $150 million 


anes —_—— 
Matketing expenses’ Mise22¢' 10% of net 
sales in fiscal 1980, reflectitig additions to 
Apple’s sales force. Apple ‘said that such 
outlays are expected to continue. 
Advértising more than doubled to $4.5 
million in fiscal 1980, the company disclosed. 
‘Apple also disclosed soft | 


tion of Commodore International Lid., which 


‘may also be at a competitive disadvan- 
tage” because it purchases 


making 
Positioning themselves for a share of the \ 
matitet are several 


Japanese manufacturers. And Apple said it 
is bracing itself for, “‘tntense competition” 
from such heavyweights, 


Reprinted from the 


Wall Street Journal 


November, 1980 


— 
Nautilus Fund Finds 
Cause for Uneasiness 
In ‘Rush of Success’ 


. ae ve 
Outlookfor High-Technology : 

Shares Troubles a Holder, 
i i Of Apple Computer Stock: 


Mi 
By a WALLSTREET JOURNAL Staff Reporter 
BOSTON—Nautilys Fund, the high-flying 

closed-end investment company, is getting 

worrled about the outlook for its portfolio of 
high*technology stocks. 

‘The company, whose shares have soared 
Decause it owns 180,000 restricted. shares of 
Apple Computer Inc., is ‘delighted with the 
rush of success,” Albert L, Toney, presi- 
dent, said. ‘ 

‘But-the suddenness of its atrival during 
a cyclical correction in the economy, and 
the lofty heights to which stock prices of 

‘emerging les have. climbed, cause 
unease,” Mr. Toney. told the fund’s annual 


meeting. : 
Because of this, the fund has ‘‘cut back 


on a numberof positions diritigs the last 
month,” he said, and has withdrawn 15% of 

\, its cash from the market and put it into re- 
serves. At the same time. Nautilus has 
“beodme evefi more selective in making 
purchases,” he added. 

Nautilus’s holdings in Apple Computer 
are restricted shares, which. means they 
can’t be traded. Nonetheless, mainly be- 
cause Apple plans a public stock offering 
later this year, the stock price of Nautilus 
ae week was 57.5% above its net asset 


vale Toney had said Nautilus plans to reg- 
ister its Apple shares with the Securities and 
Exchange Commission after the maker of 
personal computers issues stock to the pub- 
lic. But the Nautilus board, in an apparent 
reprimand, later issued a statement saying 
that it-rather than Mr. Toney—would de- 
cide the future of the fund's Apple shares. 

Besides Apple, the major holdings of 
Nautilus include MCI Communications 
Corp., Paradyne Corp., Gerber Scientific 
Tiic., UTL Corp.; Evans & ‘Sathertand Com- 
puter Sop. NBI Inc., Yellowknife Bear 
Mines Ltd. “Anacomp “Inc.’*and Southwest 7 
Airlines. 

Overall “‘the outlook continues good for 
the dynamic companies .we. follow, but ex- 
péctations of company managemént are be- 
coming more guarded,” Mr. Toney said. 
“The recent surge in business activity 
nt 


October 20 & November 7, 1980 
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WANTED: Person for full or part time position programming 
Apple II Plus. Must be proficient in Applesoft 
and Integer. Experience in Education and/or 
Aviation Fields helpful but not necessary. 


This position would involve writing educational 
courseware for a helicopter training company, 
using the latest in Technology including video 
tape and disk interfaces. 


Salary negotiable. 


Call Joel, Harris at 353-6540(Houston) or 
539-1893 (Conroe). 


PATS PASCAL CORNER 


The first four disks of the UCSD Pascal Users Group Iibrary have finally 
arrived. Programs of interest include a fancy text formatter, two Pascal 
prettyprinters, a simple text printer, Othello, blackjack, a sorter for 
ASCII files, chase, and a home finance program. These disks will be 
available fron me at the saturday swap session. The next four disks will 
include an index for Jensen % Wirth, Ken Bowles' new database seed, Wumpus 
(with 6 different caves), «a file comparison program, a flexible data 
pase/mailing list program, a disk patcher, a program to change identifiers 
in a source program, subroutines to convert from/to hex,decimal and octal, 
and several other software tools. I'll let you know when these come it, 
probably around the end of September. I've paid for these disxs ($90 so 
far) and am accepting contributions to spread the burden around. 


Pat McGee 
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VOLUME ONE, UCSD PASCAL USERS’ GROUF -~- CATALOG 


NOTE WELL: Let it be said here for all the files on this disk that UCSD 
Pascal is a trademark of the Resents af the University of California. All 
software on this disk may be given away but NOT sold without prior arrangement 
with SafTec and/or Datamed Research. 


CATALOG1. TEXT.......-what yvou’re readings now. 

COMBINE. TEXT.. »e.a Simple little thing*to combine 2 ar more text files. 
CRT.1.0.TEXT....2...Very Powerful, crash-praof data entry UNIT for CRT menus. 
FORMAT. DOC. TEXT.....documentation (fram Pascal News) for FORMAT. 

FORMAT. TEXT....+22+.larse, wonderful Pascal program prettyprinter. 

FORMAT1. TEXT.. aesPart of FORMAT.TEXT (subfile). 

FORMAT2. TEXT. .eeeeeePart of FORMAT.TEXT (subfile). 

INITVAR. TEXT. « «eePart af PRETTY.TEXT (subfile). 

L.TEXT. ween eee +.ea Short but effective text printer with several options. 
PRETTY. TEXT... ..-the second Fascal prettyverinter. from the Pascal News. 
PRETTY.DOC.TEXT.....documentation for both FORMAT and PRETTY. 

SIMP. TEXT. ee eeee eee cute Program to produce random texts saunds "professional." 
TYPESET. TEXT. .......takes text from editors & risht-justifies it. 

UNITS. DOC. TEXT »»-re UNITS, SEGMENTS, & EXTERNAL routines. 

VOLUME 1. TEXT.» «..how this disk is organized (more detail). 


Have fun! Let me know if vou spot bugs or errors in any software or docun 
mentation on this disk» or if you can clear up further mysteries of UCSD Pascal. 


Jim Gagne,» DATAMELD RESEARCH 


APPLE VOLUME 2 CATALOG, UCSD PASCAL LISERS“ LIBRARY 


PASCAL TRANSFER PROGRAM and other soodies.* 


JACOUSTIC. TEXT......Use an acoustic modem with the Pascal Transfer Program (FTP). 
DCHAYES. 10. TEXT....Use a D.C. Haves modem w/ the Pascal Transfer Program (PTP). 
DELETE.LF.TEXT....-After transfering a textfile to LICSD, dummp ASCII linefeeds. 
|HEXOUT. TEXT... ..Pascal routine to print out integers in hexadecimal. 

KBSTAT. TEXT..+.-.--Yet another kevboard status routines this time for FTP. TEXT. 
LINECOUNTR. TEXT...-Caunt the lines of a textfile. 

NEW. GOTOXY. TEXT....Good ideat let GOTOXY handle your CRT screen, too. Sample. 
/PERUSE.PG.TEXT.....Look over a textfile on your CRT one page at a time. 

| POLICY. DOC. TEXT....How the Users’ Group Library runs. 

|PRIME1.TEXT...- »Pascal routine to find prime numbers. 

| PRIME2.TEXT.. -Another prime-number seneratar. 

PTP. DOM. TEXT... -Documentatian for the Pascal Transfer Prosram. 

[FTP TEXT. seneee »The Pascal Transfer Program. fequires L2 editer to edit. 

| SMARTREMOT. TEXT....Set up your machine as a smart remote terminal. 
UPDATE. DOC. TEXT....Latest news on the UCSI Pascal Users* Group Library. 
VOLUME. 2. TEXT...2..Notes on all the programs in Volume 2. 

WRITER. DOC. TEXT....Decumentation for WRITER. 

WRITER. TEXT. -A auick but nifty text or source file printer. 
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* Note: UCSD Pascal is a trademark of the Resents of the University of 
California. Please read the file POLICY.DOC.TEXT resarding the software on 
this disk. All files are further dacumented in VOLUME.2. TEXT. 


APPLE USERS NOTE: VOLUME.2.TEXT DESCRIBES ALL THE FIILES ON THE ORIGINAL 
TWO S-INCH DISKS (VOLUME 2A AND VOLUME 2B), WHICH I HAVE LEFT FOR YOUR 
PERUSAL. ALSO, FOR NOW THE ASSEMBLY-LANGUAGE ROUTINES FOR THE 0.0. HAYES 
MODEM ARE IN SOO ASSEMBLY LANGUAGE AND ARE FOR THE OLD $-100 D.C. HAYES. 
YOULL HAVE TO MODIFY THEM ON YOUR OWN. SHOULD BE EASY. 


#% FLASH #3 

THE WCSD SYSTEM USERS SOCIETY, FORMED 21 JUNE 1980, SELECTED THE FASCAL 
TRANSFER PROGRAM AS ITS OFFICIAL INTERMEMBER MODEM DRIVER. IT’S SLOW, BUT 
IT IMPLEMENTS WHAT IS KNOWN GF THE PCNET PROTOCOL, AND LETS YOU TRANSFER 
FILES IN TWO DIRECTIONS AT ONCE, WHILE ALLOWING CONVERSATION ON YOUR TER- 
MINALS, <SIMULTANEQUSLY>!! MINOR MODIFICATIONS ARE PENDING (PRIMARILY 
IMPROVED USER INTERFACE) IN A FEW MONTHS. 


VOLUME 3 CATALOG, UCSD PASCAL USERS” GROUP LIBRARY 


FPrease, sames, and some ideas. # 


BLACKJACK. TEXT.....Now you can Play it in Pascal. Appropriate for 1980: allows 
nesative money. 


CHASE. TEXT. .+ee+2++A good implementation of an old favorite. Get away fram the 
robots, but don’t set zapped by the electric fence! 


DEBTS. TEXT....+..--Home finance program, keeps track of your bills. Nicely menu 
driven, easy to use. 


OTHELLO. TEXT....2.-VERY nice implementation of OTHELLO, the best I’ve seen. 
OTHELL1. TEXT 

OTHELL2. TEXT 

OTHELLINIT.TEXT....Subfiles of OTHELLO. 


POLICY.DOC.TEXT....How the Users” Group Library works. 


PROSE. DOC1. TEXT 
PROSE. DOC2.TEXT....A subset of the documentation of Prose, copied from the FPas— 
cal News Ne. 15. What vou really need ta know to use it. 


PROSE. TEXT. ..2ee02-A copy of the fancy text-formattina program fram the Pascal 
News, Nea. 15, adapted for UCSD Pascal by its author, J. P. 
Strait, of the University of Minnesota. Reauires most of 
44K of memary to compile. 

PROSE.O. TEXT 

PROSE. A. TEXT 

PROSE.B. TEXT 

PROSE.C. TEXT 

PROSE. DO. TEXT 

PROSE.E. TEXT 

PROSE.F.TEXT.......Subfiles of Prose 
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PROSE.1.5.CODE.....Object version for those without sufficient memory ta com 
Piles will run under UCSD versions 1.4 and 1.5. 


REQUESTS. TEXT..-...Some ideas for some very needed programs and routines. 
SNOOPY. TEXT........Snoopy calendar, featuring the W.W. I flying ace. 
STORE. DATA.....2..-Sample data file for DEBTS. TEXT. 


UNIVERSAL. TEXT.....Sussestion for a UNIT that will let us use each other’s pro- 
grams without havina te edit in hardware-specific routines. 


* NOTE: UCSD Pascal is a trademark of the Resents of the University of 
California. Flease read the file POLICY.DOC. TEXT resarding the software on this 
disk. All programs should be self-documenting, though youll have to fix hard- 
ware-specific procedures in the same programs (see UNIVERSAL. TEXT for a discus— 
sion of this subject) as a rule» any code your system does mot support (e.9.> 
KeyPress or a system clock) can just be deleted. 


CCA DATA MANAGEMENT USERS GROUP 


1 


I had an interesting talk on the phone not long ago with Ben Herman, author of the 
CCA Data Management System, distributed by Personal Software. I know that a number of 
our HAAUG members have bought this package and so should be happy to know that a 


users group has formed. Ben reports that the group has just under 500 members now and 
has put out two newsletters. 


Because the programs are written in Applesoft, and are therefore user-accessible and 
modifiable, there is a definite need for information exchange about customization, if 
nothing else. But beyond this, the system has spawned several "satellite systems," 
programs and documentation which are to be used in conjunction with it. VisiCale is 
obviously one of these satellites, since the OCA menu hooks directly to VisiCale interface 
routines. Also becoming available are a home accounting system, and also a 
memory-mapped screen editing system written in assembly language and replacing the file 
maintenance module currently residing on the system disk. There is to be a file fixer 
which will retail for $9.95, and a disk catalog system, Look for a multi-key scan facility 
which implements compound logic for file searches. It will handle up to twenty-four levels 
of selection, although its and/or logie is reported to be limited. And there will be more 
spin-offs as well. Apple users who have not yet probed the power of the Indexed 
Sequential Access Method of file searching (ISAM) have in the CCA system a way to learn 
about this approach to filing and searching. If you, like me, view your Apple as much as 
a teacher as a tool, CCA has much in store for you, and this new users group should make 
the way a good bit easier-going. 


Colin Jameson, of Jameson Electronics in Los Angeles, is editing the newsletter, which 
appears more or less quarterly. Membership dues are $9.00 per year, and confer a 
newsletter subscription, use of both an east coast and west coast hotline number, and one 
free CCA-related ad. Sounds good! Colin can be reached at 1-213-540-5208. While back 
issues of the newsletter are available, they are sent only with a 10-month membership, 
rather than 12, since this keeps records a lot more manageable. Let Colin handle that if 

- you do decide to join. You will be billed after receipt of membership materials. 


i —Ed Seeger 


APPLE BARREL vol 3,no 3 page 13 November, 1980. 


SPECIAL PRESENTATION FOR DEC 11 MEETING 


The December 11 meeting will feature a demonstration 
by Watanabe America of their Model WX4671 MIPLOT 
Intelligent Plotter. You may have seen the impressive 
demo of the MIPLOT on a PET (sorry) at Watanabe’s 
booth at the ISA Show. This will be a good opportunity 
to see a peripheral which is not yet in common use on 
personal computers in the Houston area. 


In conjunction with Watanabe’s presentation, B.P.I. of 
Austin, developers of an extensive line of 
business-oriented software for the Apple II, will 
demonstrate their inventory, general ledger, accounts 
receivable, and accounts payable packages. 


HAAUG BUSINESS GROUP MEETINGS 


Time: 7:00 pm. 
Place: EBASCO offices 


3731 Briar Park at West Park 
Houston 


Thursday, Decanber 4, 1980 


Charting Commodity and Stock Prices with the Apple 
Prices retrieved via Moden. 


Thursday, January 15, 198) 


Demonstrations and Reviews of Data Base Management Systems 
including Personal Software's OCA DMS, Data Factory 
File Cabinet, Modifiable Data Base, and others. 


For Further Information Call: 
Rudge Allen, 622-3939 
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<< DOS 3.2 DISASSEMBLY 
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We continue in this issue our sixth installment of Lee 
Meador's excellent series on the Disk Operating System, as 
originally published in the "Fort Worth Apple Users Group 
Newsletter." This installment is taken from vol. 1, no. 8, 


15 May, 1980. 


Lee is thinking of preparing a technical 


booklet on Apple DOS, with these studies as the core. 
Comments, errors noted and suggestions can be directed to 


him at 1401 Hillcrest Drive, Arlington, TX 76010. 


DOS Disassembly (Part 5) 
by Pee Meader 


Surprise The tithe for this installment is wrong: 
This ic really information about how the Apple Dit 
Hecontrofter works. Ejust used that title fo make this 
apart of the same series. Oh, well 

We all Know that the hardware that rans the Ap 
ple H Disk is nen standard. That is why vou cant pe: 
down and but a $400 disk drive and phip it inte the 
Apple controtler. Pet's try to reconstruct the think 
ing. that went into the de 
buy the controtler, You have to remember tet 
king place several vears ago. Disk controll: 
vere faitly expensive and 8" disk drives wer 
new on the scene, A single drive with controtte 
around $1000 at the t 
would be ittle re 
disk drive to pe on 


pn to make inctead of 


stand Apple saw that people 


tant to buy a thousand dete 
housand dollar computer A 
lot of people would want two dt nd that pat the 
cost out of tine forthe people who were baying py 
ple He computers, We boupht an Apple 


cause it 
was a lot cheaper than the competition anyway 
(Don't forpet the PRS 80 was not yet available ) Se, 
Apple made a deal with Shy 
make disk driv 
ao conte Apple cine ap 
Sith a brand new method ef building a det con 
troller that takes about one filth the mumber ot 
chips and, accord And so the \ppte 
I disk controller the $7 dive 


1 heing mare 


fo the peapte who 
al boupht a brneh of drives with 
cthonies inside The 


costs te 
is hom. S 


became more popu 
incren 
on controtte 


the nnn 


cd the cost came dawn Ce 
hips. Ry now the Apple 1 
r Vv cheape 
ones. At feast there isn't much diffe 
buy them ‘There really isn't any competition for Ap 
ple and they have ne reasan to bring: theit price 
down without it, (Ed. I did hear about LORO efter 
ing or soon offering a plug compatable drive without 
controller card ) 

1 von took on page 148 in your DOS man 
will sce the schematic forthe Apple Disk I 
card. This is the cata you play into. slot 6 tor 
whatever) TH has places where one ar two cables oan 
be plupved in The cables are shown rn 
top of thet 
Apple Disk 1 
fe the mn 


ne daw 
Wadtiv 


andard 


are ne fonger 


the 


nee when we 


vou 


py att the 
Pape (4G is the schematic tor the 
Hop hoard. This isthe beard iat is 
poses the dick drive 
pver by taki 


POM von temave the in cnt 
the for screws inthe botton of the drive vou will 
diripht ontop ( 
see i) Both of these hoards are om 


see this en 


dle the fop caver of to 


le by Apple 
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Computer Co. The rest of the drive is made by 
Shuyart and sold as a package to Apple. These parts 
ave standard to all Shugart drives as far as 1 know. 
Here are some interesting things you should note 
oul the schematics. First, consider the Interface 
aye 145, 
sideways so the printing will be right site up. The 
clip at the lower lett is an & bit addressable latch, 
wput marked Dis the data, The Device Select 
fine 5 the clock for the fateh. ‘he inputs marked 
ABC select one of the 8 outpuls marked Q. R resets 
al e goes low 
fic. You address one of the 16 device control 
addresses ~$CQ\0 to $COxF where x is 8 plus the slot 
) the value of D iy transfered to the ap- 
propriate Q output. The other Q outputs are not 
changed. This allows the you to step the head in or 
by changing QO through Q3, select drive bor 2 
Q4, turn the motor of the selected drive on or 
ott with GQ) and do things that will be discussed later 
with Q6 and Q?. Notice that when the motor is 
turned off the various mini-processor chips (I’ 
¢ that later, its the thiee chips in the top center) 
are actually disconnected from the power supply 
This ts to keep the power requirements low. Notice 
that the 10 Sel ne turns the power on tor the PS 
kom in the same manner. The ROM is fast cnough 
on at the power pin, catch the address 
the destted data before the Apple needs 
1 (By the way, memory on peripheral cards only 
¢ halt ay fast as the memory on the main 


‘aces below are looking 


ies to tow. When the Device Select 


atthe PS ROM is that 

Addiess lines are mixed up and so are the data 
cs The choice of numbers for particular data and 
aildlieys lines ona memory chip is really arbitrary, as 
a) JOU Use thle same conventions going in and 
commy out, The manufacturer always picks an 
Apple choose to whore it, They probably 
Make the traces on the board caster to kay 


id that 


out 
Now for th 


mini-processor, as | have named the 
thice chips im the top center of the drawing along 
with a few other gates and wires, The Po ROM chip 
and a 4:bit latch form the heart of the mini- pro- 
cessor. They provide the information to make the 
ister do What is necessary to interlace to the 
6502 data bus, The latch holds the output of some of 
the output lines trom the ROM and feeds them back 
to allow the ROM to step trom state to state. L 
define a state by the data on the address lines of the 
KOM. The ROM is laid out s0 that it loops through: 
a limited number of states if there 


no changes in 


the inputs to the mini-processor. It might change the 
Outputs in the process. The inputs are Q6, Q7, Write 
Protect and Read Data. The output is Write Data. 
The 8-bit value the shift re can be both writ- 
ten and read. This mini-processor uses the PHI3 (1 
reck letters) clock so it runs at 2 MHz. It 
changes state twice as fast as the 6502 processor 
clock. Thus 64 cycles of the mini- processor are the 
sume as 32 cycles of the 6502. This, incidentally, is 
the amount of time needed to write one byte to the 
disk. 

The Analog Card is a mystery to me. [have been 
told that the large chip in the bottom right hand cor- 
ner of the drawing on page 146 is hooked up in a 
standard configuration. It is supposedly right out of 
the Motorola book. [| have neither confirmed that 
hor proved it wrong. You see, I get lost easily when 
talking about hardware 

Let's uk about the Q6 and Q7 lines for a mo- 
ment. You have seen them referred to in the RWTS: 
stings and in the disassembly from the last issue. 
They control what the mini-processor is doing. 

Q7 Q6 

0 0 - Read into Shift Register from diskette 
O 1 - Check Write Protect status 

1 0) - Write Shift Register to diskette 

11 - Load Shift Register from Data Bus 


have no, 


How to do a write: You load a value to write into 
the shift register by bringing Q6 high and then do 
STA $COBE,X to bring Q7 high. (You could have Q7 
high and do STA $CO8D,X if you want.) Then do 
LDA $CO8C,X (or ORA as another option) to bring 
Q6 low and continue the write. After the value is 
loaded (the mini-processor waits 5 mini-cycles and), 
the write line goes high (when bit 7 is high and it 
should always be high since you can’t read bytes 
back in if bit7 is low.) After that something will 
happen every 8 mini-cycles. If there was a one bit as 
h bit of the shift register, then the write line 
changes (low-high or high-low). If there was a zero 
Dit ay the high bit of the shift register, then the write 
line stays the same. (ie, What happens is nothing at 
all.) The shitt register is shifted left once every 8 
iii-cyeles so that the change or no-shange in the 
reflects the contents of the shift register. 
On the 3rd mini-eyele after the write line changes (or 
doesn't change) the shift register is shifted left and 
the next highest bit is available. Then 5 mini-cycles 
later the write line reflects the new value of QA (ie. 
the latest high byte in the shift register.) See the 
WRIT! ft for a look at the states the mini- 
machine goes through when it is writing bytes. The 
contents of the P6 ROM that affect the Write states 


write 


have not been changed from the old to the Pascal 
version of the P6 ROM. The Disk software is 
responsible for putting a new value in the shift 
register or turning off the write mode exactly 64 
mini-cycles after the previous byte was put into the 
shift register. If not, extra zero bits are written on 
the diskette following the eight bits from the last 
byte. That is why each byte that is written must have 
the 7th bit set. A zero bit is the default—no change. 
That is also why the software to produce selt-syne 
(also called auto-sync.) writes an SPF to the disk but 
waits 36 cycles (ie. 72 mini-cycles) before writing 
another byte. Notice what this will do in the Read 
algorithm below 

How to check Write protect: When the (6 line is 
high and the Q7 line is low the mini-processor will 
change into state $14 within 2 mini cycles. State $14 
shifts right (bringing the value of the write protect 
line from SR into the low bit of the shift repister) 
ind then goes to itself. IC only takes 8 mini cycles 
before the whole shift register reflects the value of 
the Write Protect line. $FF means the slot on the 
diskette is covered and zero means it i: 
those 4 processor cycles there isn't even time to read 
the shift register before it’s ready. So, LDA 
SCOB8E,X will get SFF or zero from the shift register 
and a BMI will branch if the disk is write protected. 
X should hold the slot number in the form $x0. The 
mini-processor stays in state $14 until either Q6 or 
Q7 changes. There were no changes made in this part 
of the ROM when they made the Pascal P6 ROM, 
either. 

How to do a Read: To ie, reading is the most in- 
teresting part of this whole thing. It's because when 
you are reading you must reproduce in the shift 
register whatever data was written. That isn’t easy 
because you may be reading on a different drive 
from the one that wrote the diskette. Not drives 
are created equal, some run slower, some faster. 
Even if it is the same drive there may be slight 
voltage level differences that cause changes in the 
motor speed. It might be warmed up now and run a 
little faster or slower. The room temperature or 
humidity might be different causing the diskette 
itself to expand or contract. That would cause the 
read head to be a little off from the center of the 
recorded signal.If the diskette is a little off center on 
the spindle, the head will weave back and forth over 
the center of the recorded signal causing it to vary in 
strength like a warped record does. The signals 
would be weakened and distorted by age or lack of 
care. Magnetic fields of all sorts and even cosmic 
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rays all combine to make the data on the diskette a 
little distorted from the way it was written. 

So, how does it manage to work so well. We start 
with something in the shift register. 11's whatever 
was the last byte on the diskette. The read head gives 
us pulses corresponding to the changes in the write 
line described above. A pulse means there is a one bit 
and no pulse means there is a zero bit. The trailing 
edge of the pulse is all that matters. Now, as we start 
the first trailing edge will clear the shift register 
(after a few cycles) and put a one bit in for that trail- 
ing edge. If in the mean time we got anothere trailing 
edge we shift in another one bit. If we didn’t we im- 
mediately shift in a zero bit. Then we get in the main 
loop of read states. It takes 3 mini-cycles (thats 1500 
nanoseconds) to process a trailing edge and be ready 
for the next one. They should happen exactly 8 
inini-cycles apart under ideal conditions (ic. drive 
same speed, no distortion, ete.) and cause a one bit 
to be shifted in at state $F. On the other hand, if 
the mini-processor gets to state $BO without getting a 
trailing edge then a zero bit is shifted in. That means 
ten cycles without a trailing edge are what the 
machine uses to say it found a zero bit. When the 
last bit is shifted into the shift register (under normal 
conditions) then the high bit will become a one and a 
LDA $CO8C,X can read a negative byte from the 
disk mechanism. That means the data is valid. Since 
the high bit of the shift register is a one, the mini- 
machine now goes into state $12 and waits for the 
next trailing edge. (I figure it usually stays there 
about $ mini-cycles) When it finds the edge we start 
the whole process over again. There are about 6 pro- 
cessor cycles (12 mini-cycles) between the comple- 
tion of the byte formation and the clearing of the 
shift register for the next byte. If the 6502 reads 
again too soon it will get the same byte again. If it 
waits 100 long (that is 38 processor cycles or 76 
mini-cycles under ideal conditions) it will miss a 
byte. Notice that reading is synchronized by the for- 
mation of negative values in the shift register and the 
ding high bit (or the trailing edge of the cor- 
responding pulse from the read head) of each byte. 
11 does not depend on timing loops. 

‘This is a good place to explain auto-syne bytes 
‘They are written as 8 onc-bits in a row followed by a 
zero bit by the 6502 waiting 72 mini-cycles between 
shift register loads. When reading begins the min 
machine does not know where it is within the byte. It 
could begin at bit 4 since the bits are stored as one 
long line of pulse-no-pulses. Auto-sync pulls the 
mini-machine in syncronization with the way the 
bytes were read because the mini-machine will read & 


bits and ignore the 91h only if the 9th is a zero bit. 
Otherwise the 9th bit will be taken as the start of a 

ew byte. Eight or more bytes of autu-syne are writ- 
ten between sectors and between the sector header 
and the data portion, That is enough to bring the 
machine in syne with the real bytes. 

there are changes in the read section of the Pascal 
Vo ROM that allow for more leeway in reading. It 
lwoks to me like the Pascal P6 ROM is really just 
changed to correct a deleciency in the original P6 
ROM. (See the comments below). 

Why does the software translate all the data into 
S-bit mbbles and then into 8 bit values that don’t 
have two zero bits in a row? (Last months install- 
vent of this series shows the software that does the 
conversion.) Suppose we tried to read two zero bits 
in a row. If they are written every 8 mini-cycles then 
the 4 bits 1001"? would have the two trailing edges 
Gor the one bits) 24 mini-cycles apart. I takes 3 
mini-cycles to recover from the first one bit so there 
are only 21 mini-cycles in which to detect two zero 
bits. But, it takes 20 mini-cycles without a pulse to 
signal two zero bils in a row and that leave ong 
mini-cyeles as a margin tor error. This would, in my 
opinion, work if the drives ran at the same speed“ IT 
the diskette was written on a drive that was more 
than 5% faster than the one it is being read on, then 
both zero bity would not be detected. The Pascal 
system writes double zero bits and reads them cor- 
rectly and you it is possible to run Pascal with the 
old P6 ROMs. | know people who are doing it on a 
second controller with a third drive on it, He just 
means their drives are close enough to being the 
same that the double zero bits can be read. 

Just how is the Pascal P6 ROM different 
Pascal mini-processor ROM has 5 bytes changed 
t1om the old P6 ROM. The listings below were pro- 
duced by swapping the P6 and PS ROMs on an extra 
controller card and moving the contents down to 
RAM inemory. I’ve saved these as B type files on a 
disk. (By the way, you need to enter them to run the 
Basie Modeling Program.) What they do iy change 
the action done in states $03, $13, $92, $82 and most 
importantly in $BO. $82 is a dummy state that is 
never gone to. The change in $B0 seems to have 
Ptecipitated the other changes. The change in $BO 
makes the mini-processor skip the first (wo states in 
the usual loop after finding a zero bit. That means 
the first cero bit is signaled by ten empty mini-cycles 
and the following zero bits only take 8 empty 
cycles, With this change we can have two zero bits in 
a row and still read what was written on drives of 
slightly different speed. If we were to write more 


zero bits it would increase the chances of getting 
lost. Besides there is nothing to gain. (More about 
that later.) The change in $BO means you have to 
change $03 and $13 to act just like $02 and $12 did 
before. Wait in state $12 or $13 after the shift 
register is full until another trailing edge comes 
down the line. Then go to state $02 or $03. The only 
difference is that you go to $12 if the last bit (low 
order) is a one bit and go to $13 if the last bit is a 
zero bit. Both $02 and $03 go to state $92 and $92 
goes to $93 or $83 depending on the absence or 
presence of a trailing edge. These are the only 
changes made 10 the old P6 ROM when it became 
the Pascal P6 ROM. They allow you to read the dou- 
ble zero bits that you always could write. 

Pascal also encodes the data differently from the 
way the Apple DOS 3.2 encodes it. Pascal encodes a 
page of 256 ($100) bytes as 343 ($157) groups of 6 
bits. When being written the 6 bit nibbles are map- 
ped into 64 of the 256 possible 8-bit patterns. These 
are the conditions on the 8-bil patterns used by 
Pascal to store onto the disk surface: Bit 7 must be 
on and no three zero bits may be together. DOS 3.2 
encodes a page of 256 ($100) bytes as 410 (S$19A) 
groups of 5 bits. These 5 bit nibbles are mapped into 
32 of the 256 possible 8-bit patterns. (The conditions 
on the the 8-bit patterns used by DOS 3.2, which are 
repeated from the last installment, are: Bit 7 must be 
on and no two zero bits may be together.) Because 
Pascal uses 343 and DOS 3.2 uses 410 bytes to en- 
code the page, Pascal has room on a track for 16 see- 
tors instead of the normal 13 for DOS 3.2. (DOS 3.0 
and, as | understand, the CP/A system by Shepard- 
son Mictosystems—who, incidentally, are rumored. 
to be the people who wrote the original Apple 
DOS—use only 10 sectors per track. That gives 87.5 
Kbytes per diskette as compared to 113.75K for DOS. 
3.2 and 140K for Pascal.) The bits aren’t actually 
any closer or farther apart but the data is encoded 
more differently. If you think about it the only way 
to make it more efficient than Pascal (besides chang- 
ing the whole hardware setup) is to encode bytes as 7 
bit mbbles. That would use 128 of the 256 8-bit pat- 
terns. $15 cannot map into a nibbles (it’s used to 
marh the ont of a sector or sector head) and the 
high bit hay to be set for the hardware to read cor- 
rectly. So we need 129 8-bit values with the high bit 
set. That isn’t possible (there are only 128 of them) 
30 there is no need to try Lo write More than two zero 
bits in a row as it couldn't help us scrunch the data 
up further anyway. 

The program given models the action of the mini- 
processor on the disk interface card. The screen 
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appropriate! 
at the right side of the screen 
labeled according to the schemat 
useful when looking at 
, WRITE and RDADR routines and 

inline and FORMAT program. It w 
he Apple COPY program, too. Ju: 
various instruc 


group of say 4 or 5 processor cycles 
a LDA or STA. That has to 
register puts data on or accept 
bus. I don’t know enough al 
works. If someone could work this of 
ing charts 1 would be glad to d 
formation. 


Stan Brooks, Arlie Dealey and Kri 


1 do not know. I also owe a lot 


FWAUG 


Newsletter 


Pascal P6 ROM Listing 


courtesy of Arte Dealey 

2000. 20FF 

2000- B8 BB 8B CB OA OA OA OA 
2008- 88 C9 68 C9 B8 CB 8B CB 
2010- 88 CB 08 CB OA OA 0A OA 
2018- 88 C? 88 CY 68 CB 8B CB 
2020- BB 30 BB BB OA OA OA OA 
2028- 98 D9 98 DY 98 DB 9B DB 
2030- 98 DD 98 DB OA OA OA OA 
2038- 98 D9 98 DY 98 DB 98 0B 
2040- B8 88 BB BB OA OA OA OA 
2048- AB EB AB ES AB EB AB EB 
2050- AB EB AB EB OA OA OA OA 
2058- A8 EB AB EB AB EB AB EB 
2060- B9 FD BB FB OA OA OA OA 
2068- BB F8 BB FB BB FB BB FB 
2070- B? FD 50 F8 OA OA OA OA 
2078- BB FB BB FB BB FB BB FB 
2080- B8 BB 48 BB OA OA OA OA 
2088- 48 28 48 28 48 28 48 28 
20970- 48 28 48 28 OA 0A OA 0A 
2098- 48 28 48 28 48 28 48 28 
20A0- BB B9 BS BB OA OA OA OA 
20A8- 58 38 58 38 58 38 58 38 
20B0- 09 C9 58 38 OA OA OA OA 
20B8- 58 38 58 38 58 38 58 38 
20CO- B8 BB BB BB OA OA OA OA 
20C8- 68 0B 68 18 68 08 68 18 
2000- 68 18 68 18 OA OA OA 0A 
20D8- 68 08 68 18 68 08 68 18 
20£0- 8D BD 78 70 OA OA OA OA 
20E8- 78 18 78 OB 78 18 78 08 
20F0- 0D 2D 78 70 0A OA OA OA 
20F8- 78 18 78 08 78 18 78 08 


Old Style P6 ROM Listing 
courtesy of Arlie Dealey 


"2000. 20FF 

2000- BB BB B8 88 0A OA OA OA 
2008- 88 C9 88 CY 88 CB 88 CB 
2010- 88 CB OB 48 OA OA OA 0A 
2018- 88 C9 88 C9 8B CB 88 CB 
2020- BB 30 BB BB OA OA OA OA 
2028- 98 D9 98 DP 98 DB 98 DB 
2030- 98 DD 98 DB OA OA OA OA 
2038- 98 D9 98 D9 98 DB 98 DB 
2040- BB BB BS BB OA OA OA OA 
2048- AB EB AB EB AB EB AB ES 
2050- AB EB AB EB OA OA OA OA 
2058- AB EB AB E8 AS EB AB EB 
2060- BY FD BS FB OA OA OA OA 
2068- BB F8 BS FB BB FS BB FB 


2070- 89 FD 50 FB OA OA 0A OA 
2078- B8 FB BB FB BB FB BB FB 
20a0- B8 BB C8 BB OA OA OA OA 
2088- 48 28 48 28 48 28 48 28 
2090- 48 28 CB 28 OA OA OA OA 
2098- 48 28 48 28 48 28 48 28 
20A0- B8 B9 BB BB OA OA OA OA 
20A8- 58 38 58 38 58 38 58 38 
20B0- 49 C9 58 38 OA OA OA OA 
20B8- 58 38 58 38 58 38 58 38 
20CO- BB B8 BS BB OA OA OA OA 
20C8- 68 08 68 18 48 08 48 18 
20D0- 68 18 68 18 OA OA OA OA 
20D8- 68 08 68 18 48 08 48 18 
20E0- 8D BD 78 70 OA OA OA OA 
20E8- 78 18 78 08 78 18 78 0B 
20F0- 00 2D 78 70 OA OA OA OA 
20F8- 78 18 78.08 78 18 78 08 
IST 
3S REN 


10 REH PROGRAM TO MODEL DISK II 
20 REM INTERFACE CARD. (HINI- 
30 REH PROCESSOR ONLY.) 


50 REM BY LEE MEADOR 

60 REM COPYRIGHT (C) 1980 

70 REM 

100 BS=""":US=" ": DIN FFD(4), FFAC 
6),0(8),A(B),S(8), DL (8), AS¢ 
2),STS(30) 

105 DIM WRSTR$( 100), HEX$( 16) : HEXS 
="0123456789ABCDEF” 

107 POKE 2060, 223 

110 FOR I=1 TO 6:FFD(I)=0: FFQ(1) 
=0: NEXT I 

415 FOR I=1 TO 30:STS(1)=0: NEXT 

120 FOR I=1 TO 8:A(1)=0:D(1)=0: 
$(1)=0: NEXT I 

125 A(5)=1: REM DEFAULT 


145 INPUT "PASCAL OR BASIC ", AS 


147 IF A$="P" THEN PRINT D$;"BLOAD D 
ISK ROM (PASCAL), A"; ROM 

150 IF A$="B" THEN PRINT D$;"BLOAD D 
ISK ROH, A's RON 

155 IF ASH"P" AND ASH"B" THEN END 


1000 REM  MKHMAIN LOOPH KK 


TO 1000 
4080 hen 4% PRINT THE IN/QUTH HH 
3010 CALL -936 
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3020 PRINT 

3030 PRINT "FF/D (0-5) -) "5 

3040 FOR I=1 TO 4: PRINT FFD(I); | 
"3: NEXT I: PRINT 

3050 PRINT 

3060 PRINT “FF/@ (1-5) -) 

3070 FOR I=1 TO 6: PRINT FFaCT); 
"3; NEXT I: PRINT 


3130 PRINT 

3140 PRINT "ROM ADDRESS -) "i 

3150 FOR I=8 TO 1 STEP -1: PRINT 
ACI)i" "5: NEXT I: PRINT 

3160 PRINT 

3170 PRINT “ROM OUTPUT -) "i 

3180 FOR I=8 TO 1 STEP -1: PRINT 
D¢T)5" "+: NEXT I: PRINT 

3190 PRINT 

3200 PRINT “SHIFT REG -) "i 

3210 FOR I=8 TO 1 STEP -1: PRINT 
S(1)a" “i: NEXT I: PRINT 

3220 PRINT 

3225 IF _HOH(1 THEN HOH=1: IF HDL¢ 
1 THEN HOL=1 

3230 PRINT "DATA BUS —) "iHEX$ 
(HOH, HDH) + HEX$ (HDL, HDL) 

3240 PRINT 

3300 REM uM GET NEW STATE Kx 

3305 VAL=0 

3310 FOR I=1 10 8 

3320 i ACI) THEN VAL=VAL+2 * (I- 

3330 NEXT I 

3340 FOR I=1 TO 14 

3350 STS(I)=STS(I+1): REN KEEP 15 ST 


3370 8TS(15)=VAL 

3975 REM ** PRINT 15 STATES BACK mK 

3380 FOR I=1 10 15 

3390 HUsSTe(t) (4641: COee 1st 1} oD 
+ 

3400 VTAB I: TAB 35 

3410 HEX$ (HI, HI) s HEX$(LO, LO) 


3420 NEXT I 

3500 REM #% DRAW URITE LINE “Kx 

3505 PRINT : PRINT 

3510 IF NOT WRITE THEN WRSTRS( LEN( 
URSTR$) +1) =US 


3520 IF WRITE THEN WRSTRS( LENCURSTRS | 
' 7160 VAL=VAL/2 


d+1)=BS 


3530 IF LENCWRSTR$) 38 THEN WRSTRE 7171 REM #xRSWAP SINCE DATA LINES ARE 


=WRSTRE(2) SWAPPED ON THE PS ROMNKHH 

3540 PRINT WRSTRS; 7172 X=D(8) :D(8)=D(5) : (5) =x 

3950 RETURN 7174 X=D(7) :D(7)=0(6) :D(6) =X 

4000 REN KN LET CHANGES BE MADExH ©7200 RETURN 

4010 VTAB 20: TAB 1: CALL -958 8000 SL=D(3): REN SET OUTPUTS 

4015 PRINT "YOU MAY CHANGE @4, @7, RD 8010 Si=D(1) | 
AND WR PROT" 8020 SO=D(2) 

4020 PRINT 8030 CLR=D(4) 

4030 INPUT "TYPE 6,7,R OR W", A$ 6080 IF NOT CLR THEN 8270 


4045 IF A$="R" THEN READ= NOT READ 80970 IF NOT (Si OR SO) THEN RETURN 


4070 IF A$="7" THEN @7= NOT @7 8100 IF S1 AND SO THEN 8400 
4073 IF A$="W" THEN SR= NOT SR 8120 IF SO AND ( NOT S1) THER 8200 


4100 GOTO 4010: REN MORE CHANGES 8130 IF NOT (S1 AND ( NOT S0)) THEN 


5000 REM «x DO ONE CLOCK CYCLExHH RETURN 
5010 GOSUB 6000: RI FLIP FLOP 8140 REN — KNSHIFT LEFTHuH i 
5020 GOSUB 8000: REN SHIFT REG 8150 FOR I=8 TO 2 STEP -1 | 
5030 GOSUB 7000: REN RON 8160 S(I)=S(I-1) ! 
5040 RETURN 6170 NEXT I 


6000 REM *HSET UP FF AND CLOCK ITxxx 8180 S(1)=SL 
6001 FFD(1)=D(8): REM SET DATA IN 8200 REN = HHSHIFT RIGHTHK 


| 6002 FFD(2)=D(7) 8210 FOR I=1 107 
6003 FFD(3)=D(5) 8220 S(1)=S(I+1) 
6004 FFD(4)=FF@(5) 9230 NEXT I 
6005 FFD(5)=READ 8240 $(8)=SR 
6006 FFD(6)=D(4) 82590 GOTO 8600 
| 6009 REM e4XCLOCK IT ACROSSHHK 8270 REN “XCLEAR SHIFT REGHE 
6010 FOR I=1 TO 6:FFQ(I)=FFD(I): 8260 FOR I=1 10 8 
NEXT I 8270 S(1)=0 
6020 RETURN 8300 NEXT I 
7000 REM MHxSET UP ROM ADDR, GET DATA 8310 GOTO 8600 
Pilg 8400 REN XXXLOAD SHIFT REGHHH 
7005 ACL) =FFQ(6): REM SET THE ADDR L 8410 INPUT "LOADING SHIFT REG. ENTER 
INE HEX $", A$: IF LEN(A$)(1 THEN 
7010 A(2)=0A 8410 
7020 A(3)=06 . 8420 Di= ASC(A$):D2= ASC("0"): IF 
7030 A(4)=@7 LEN(A$) 2 THEN D2= ASC(AS(2 
7040 A(5)= NOT (FFQ(4) AND ( NOT ») 
FFQ(5))) 8430 Di=D1- ASC("0"):D2=D2- ASC< 
7050 A(6)=FFQ(3) “o") 
7060 A(7)=FFQ(2) 8440 IF _D1)9 THEN Di=D1-7: IF 02> | 
7070 A(8)=FFQ(1) 9 THEN D2=02-7 
7075 X=A(6) :A(6) =A(B) : ACB) =X 8442 IF LEN(A$)=1 THEN DTA=D1 
7080 WRITE=FFQ(1): REM SET WRITE 8444 IF LENCA$) 1 THEN DTA=D1"16 
7090 OFFSET=0 +02 
7095 REM XRXLOOK INTO ROM FOR DATAnKx 8450 IF D1(O OR 01)15 THEN 8410: 
IF D2¢0 OR D2)15 THEN 8410 
7100 FOR I=1 TO 8 
7110 IF ACI) THEN OFFSET=OFFSET+ 8470 FOR I=1 108 
2° (I-1) 8480 DL(I)=DTA MOD 2 
7120 NEXT I 8490 DTA=DTA/2 
7130 VAL= PEEK (ROM+OFFSET) 8495 S(I)=OL(1) 
714% FOR I=1 T0 8 8500 NEXT I 
7150 D(I)=VAL_MOD 2 8540 GOTO 8600 


7170 NEXT I 
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8600 REM MXAFINISH SETTING ourpurss) ial a 

Bios imi: soL-0 eA Garaie aaa: 

8630 DLUD=SCL). @4 @7 GA SL SR SO 51 UR RD CLR 

8640 TF DUCT) THEN HOL=HoLeZ « «1°99 5 8G 8 85 NG RD OF 

asso Fok ts 8 Le SERRE 

8680 IF_DL(T) THEN HOH=HOHH2 4 ¢ 

gen ie SHIFT REG ->00000000 

Bere POCO HOH DATA BUS --'=2:00 | 

YOU HAY CHANGE @4, @7, RD AND UR PROT 

TYPE 6,7,R OR W ot 


Disk Card Mini-Processor States (WRITING) 
by Lee Meador 


Loads Shift Register 
= trom 00-7 


0.1 — Value at QA 
L. — Witte ling changes 
(hi-lo it shaded) 
Q = shit occurs 
No changes for Pascal 
$14 is the idle state. it reads 
the write protect line also. 
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Disk Card Mini-Processor States (READING) 


by Lee Meador 


N — No trating euge 
T — Trailing edge 
0,1 — Value at QA 
(Only valid at square Boxes) 

QO — Shitts ina ot 

(1 bit if shaded) 
A — Clears shitt register 
Pascal changes in dashes 


r Pose a 
ight “ad | 
ae a 
“ts AS i S 
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KK WANT AND DON'T WANT ADS >>> 


2 DI/AN PRINTERS. Used and for sale in good condition with 
I/O device and software. RS-232. Lewis Melton, 981-8866. 


FOR SALE: HEATH H-14 Dot Matrix Printer RS232 or current 
loop interface, high speed, forms control, three print 
sizes.....$900 + tax at Heath. Will sell for $500. See 
Mike Kramer or call at 358-6687 after 5. 


FOR SALE: Apple Integer Card $150. See Mike Kramer or 
call 358-6687 after 5. 


SANYO MONITORS AVAILABLE IN GROUP PURCHASE. We need a 
minimum of 6 ordered if we are to get the special prices. 


13" color $430. + tax (30-day delivery) 


9" B&W 169. bi (stock) 
12" B&W 200. i (8-10 days delivery) 
15" B&W 250. " (stock) 

5 


If you are interested contact Ray Essig, 493-9980 or 
497-7165 (evenings). 


BACK ISSUES OF APPLE BARREL are for sale in limited 
quantities! Many of you have inquired about their 
availability. The following back issues can be bought by 
mail for $1.00 each, postpaid: 


vol. 2 no. 5 August, '79 
vol. 2 no. 6 Sept/Oct, '79 
vol. 3 no. 1 January, '80 
vol. 3 no. 2 February, '80 
vol. 3 no. 3 Mar/Apr, '80 
vol. 6 no. 6 August, '80 
vol. 7 no. 7 Sept/Oct, '80 
vol. 8 no. 8 November, '80 


This is a chance for newer members of HAAUG to catch up on 
programs, news, reviews, etc. Sorry, but there will be NO 
reprints when these are gone. Make checks payable to 
H.A.A.U.G. and send to Apple Barrel; Ed Seeger, Editor; 
4331 Nenana Drive; Houston, TX; 77035. Please allow 2 
weeks for delivery. 


SUPER.TEXT WORD PROCESSOR, version 2, by Muse for sale at 
$85 in mint condition. This is one of the "big two" 
(EasyWriter is the other) implemented on the Apple in the 
$100 range. Worth $100 if you wish to trade it in for 
their Super.Text II system at $150. Has math mode (!), 
built-in copy routine for files, and displays upper & lower 
case ON SCREEN with Paymar chip. Ed Seeger evenings at 
723-6919, 


D , 
‘ - = -e- -- - 


Dear Dr. Apple: 


The sales clerk explained the situation tc me when I bought my new Apple, 
but in the joy of a new toy [| forgot, What are the language capabilities 
Within the Apple computer and its augmentations? I have an Apple II Plus, 


Signed, 
Coming Down to Earth 


Dear Down to Earth: 


You are reminded that both the Apple II and the Apple II Plus computers 
are identical except for the basic language ROM chips built into them, 

Apple II computers have Integer Basic burned into them at the factory, 
A second language, Applesoft Basic, iS available to the Apple I] through 
@ cassette conversion program Which used to come free with the computer 
purchase, For those With disk drives, the 3,2 DOS Master Diskette has 
included a copy of the same APplesoft conversion program, One has “%o Toad 
and run the conversion program before operating any program written in 
the ApPlesoft language, Since this iS a bit awkward and time consuming, 
Apple manufactures a firmware APplesoft card which provides instantaneous 
transition in and out of ApPlesoft when ever required. Pascal language 
can be added to the Apple through purchase of the Apple Language RAM card, 
PROM chips and Pascal compiling program diskettes, 311 of which requires 
the user to have at least one disk drive to start with, Additionally 
as a bonus, the Pascal System has an accompanying diskette free which 
Provides for program operations in Applesoft, Lastly, Fortran language 
Capability can be added to the above system through two additional 
diskettes, Moreover, COBAL and other language Capabilities are planned 
to come into the Apple the same way, , 

Now, Apple II Plus computers have Applesoft Basic manufactured into 
them to begin with, but no Integer, There are no [nteger cassete 
conversion program available at this time, however there i5 an Integer 
Basic conversion program on diskette just now coming on the market 
which permits operation of [Integer programs on the computer, A firmware 
Integer card (counterpart to the firmware Applesoft card mentioned above) 
iS available for direct electronic transition into that language when 
inserted into the Apple II Plus, Of course Pascal can be obtained 
through the same Pascal System discussed earlier and the same accompany— 
ing diskette brings in Integer 435 its extra gift to Apple II Plus users, 

Incidentally, the Assembly language of both computers is exposed 
through the system Monitor, The table below gives language availabilities 
at a glance; 


anguage Source Apple II Apple J] plus Remarks 
Built into Computer Integer & ASSembly APPlesoft & Assembly ROM 
Cassette Applesoft / None yet 412k RAM used 
Diskette Applesost! Integer % 42k RAM used 
Firmware Card? Integer@>AppPlesoft Applesoft<> Integer Automatic 
Language System + Pascl,AP1s¢t,Fortrn’pascl, Intgr,Fortrn® Need disk drive 
Note 1, Free. HAAUG Library 
Note 2, Retsil $28 
Note 3, Retail $208 
Note 4, Retail $568 
Note 5, Retail $206 extra 


Signed, 
Dr. APPle 
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